uses crt;
const
k = 25;
l = 30;
var
m, n, y, i, j, u, command: Integer;
command1: Byte;
A: Array [1.. k, 1.. l] of Integer;
Procedure Output_N2;
Begin
Write(' |');
For i := 1 to n - 1 do
write(i:3,' ');
Writeln(n:3);
Write('--+');
For i := 1 to n - 1 do
write('----');
Writeln('---');
For i := 1 to m do
begin
write(i:2,'|');
for j := 1 to n - 1 do
write(A[i,j]:3,' ');
writeln(A[i,n]:3);
end;
End;